val src : string ref
val dst : string ref
val tmp : string ref
val pas : int ref
val filtre : int ref
val el : int ref
val l : int list ref
val triangulation : int ref
val quadrillage_ou_point_obj : int ref
val quad : (int * int) list ref
val liste : (int * int * int) list ref
val liste_hrgb : (int * int * int * int) list ref
val wait_key : unit -> unit
val sdl_init : unit -> unit
val get_dims : Sdlvideo.surface -> int * int
val insert : 'a * 'b * 'c -> ('a * 'b * 'c) list -> ('a * 'b * 'c) list
val rech_ins : unit -> unit
val main : unit -> unit
